000006CE 43FA 017A lea.l A1, [PC + 0x17A /* 0000084A, value 0x39202020 '9 ', pstring " Again : this program was written by Michael Leuschel " */]
000006D2 700D moveq.l D0, 0x0D
label000006D4:
000006D4 20D9 move.l [A0]+, [A1]+
000006D6 51C8 FFFC dbf D0, -0x6 /* 000006D4 */
000006DA 3091 move.w [A0], [A1]
000006DC 41EE FF00 lea.l A0, [A6 - 0x100]
000006E0 43FA 0140 lea.l A1, [PC + 0x140 /* 00000822, value 0x27202020 '\' ', pstring " ** (c) 1987 by Michael Leuschel ** " */]
000006E4 7009 moveq.l D0, 0x09
label000006E6:
000006E6 20D9 move.l [A0]+, [A1]+
000006E8 51C8 FFFC dbf D0, -0x6 /* 000006E6 */
000006EC 41EE FF00 lea.l A0, [A6 - 0x100]
000006F0 43FA 0104 lea.l A1, [PC + 0x104 /* 000007F6, value 0x2B202020 '+ ', pstring " This program may be distributed freely " */]
000006F4 700A moveq.l D0, 0x0A
label000006F6:
000006F6 20D9 move.l [A0]+, [A1]+
000006F8 51C8 FFFC dbf D0, -0x6 /* 000006F6 */
000006FC 41EE FF00 lea.l A0, [A6 - 0x100]
00000700 43FA 00A4 lea.l A1, [PC + 0xA4 /* 000007A6, value 0x4E202020 'N ', pstring " It may not be changed in any way, sold or given away as part of a package " */]
00000704 7013 moveq.l D0, 0x13
label00000706:
00000706 20D9 move.l [A0]+, [A1]+
00000708 51C8 FFFC dbf D0, -0x6 /* 00000706 */
0000070C 41EE FF00 lea.l A0, [A6 - 0x100]
00000710 43FA 005A lea.l A1, [PC + 0x5A /* 0000076C, value 0x39202020 '9 ', pstring " This program was written by Michael Leuschel in 1987 " */]
00000714 700D moveq.l D0, 0x0D
label00000716:
00000716 20D9 move.l [A0]+, [A1]+
00000718 51C8 FFFC dbf D0, -0x6 /* 00000716 */
0000071C 3091 move.w [A0], [A1]
0000071E 41EE FF00 lea.l A0, [A6 - 0x100]
00000722 43FA 0018 lea.l A1, [PC + 0x18 /* 0000073C, value 0x2F202020 '/ ', pstring " ** Greetings to all Fedit Users ** " */]